data <-read.csv("data.csv") data$ImprovedDrinkingWater<-data$Households.with.an.improved.drinking.water.source1 data$ImprovedDrinkingWater<-data$ImprovedDrinkingWater/100 data1 <- aggregate(ImprovedDrinkingWater~State.1, data=data, FUN=mean)